home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D2.D64 / basic scroll (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  354 b   |  14 lines
  1. 10 IFA=0THENA=1:LOAD"BALLCH*",8,1
  2. 20 IFA=1THENA=2:LOAD"BALLSC*",8,1
  3. 30 IFA=2THENA=3:LOAD"BALLBA*",8,1
  4. 40 DIML(26),R(25):L(1)=1024
  5. 50 POKE53272,(PEEK(53272)AND240)OR2
  6. 60 POKE53270,PEEK(53270)OR16
  7. 70 POKE53280,6:POKE53281,14:POKE53282,9:POKE53283,8
  8. 80 FORA=1TO25:R(A)=L(A)+39:L(A+1)=R(A)+1:NEXT
  9. 90 FORZ=1TO39
  10. 100 FORB=0TO39
  11. 110 FOR C=1 TO 25:POKEL(C)+B,PEEK(L(C)+B+1):NEXTC,B
  12. 120 FOR A=1 TO 25:POKER(A),PEEK(L(A)):NEXTA,Z
  13. 130 GOTO80
  14.